home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / GAMES / 1-L / FUNS4U52.DMS / FUNS4U52.adf / Menu_A500.AMOS / Menu_A500.amosSourceCode < prev    next >
AMOS Source Code  |  1991-10-20  |  3KB  |  82 lines
  1. ' ************************************************************************ 
  2. '                           FUNSCHOOL 4 - UNDER 5s     
  3. '                      (C) EUROPRESS SOFTWARE LTD 1991 
  4. ' ************************************************************************ 
  5. Set Buffer 5
  6. Set Sprite Buffer 256
  7. Auto View Off 
  8. While Screen<>-1 : Screen Close Screen : Wend 
  9. Screen Open 0,320,200,16,Lowres : Flash Off : Curs Off : Hide On 
  10. STUPID=Free : Clear Key : Led Off 
  11. Fade 1 : Wait 15
  12. 80 RV=999
  13. Key Speed 255,255
  14. Load Iff "intro/menu.iff",0 : Wait Vbl : Flash Off : Curs Off : Hide On 
  15. Auto View On : View : Wait Vbl 
  16. For I=0 To 15 : Colour I+16,Colour(I) : Wait Vbl : Next I
  17. Flash 13,"(000,4)(222,4)(444,4)(666,4)(888,4)(AAA,4)(CCC,4)(DDD,4)(FFF,8)(DDD,4)(CCC,4)(AAA,4)(888,4)(666,4)(444,4)(222,4)"
  18. Sprite Update On : Update On : Bob Update On : Limit Mouse : Wait Vbl : X Mouse=160-8 : Y Mouse=100-8
  19. Reserve Zone 20
  20. 130 Dim XYZ(24) : Dim F$(6) : POS=1 : X=2 : Y=111
  21. 140 For A=0 To 23 : Read XYZ(A) : Next 
  22. 150 OK=1 : Z=1
  23. 160 For B=0 To 23 Step 4
  24.    170 Set Zone Z,XYZ(B)-9,XYZ(B+1)-7 To XYZ(B+2)+10,XYZ(B+3)+14
  25.    180 Z=Z+1
  26. 190 Next 
  27. 210 Ink 13 : Box XYZ((POS-1)*4),XYZ(((POS-1)*4)+1) To XYZ(((POS-1)*4)+2),XYZ(((POS-1)*4)+3)
  28. 220 If XM<>X Mouse or YM>Y Mouse or MK>0 Then Sprite 8,XM,YM,1
  29. 230 XM=X Mouse : YM=Y Mouse : MK=Mouse Key
  30. 240 K$=Inkey$ : If OK=0 Then Sprite 8,XM,YM,1 : Wait Vbl 
  31. 250 If K$=" " Then OK=1 : Sprite Off : Wait Vbl : Gosub 320
  32. 260 If Scancode=68 or MK>0 and CH<>0 Then Goto 480
  33. 270 Wait Vbl : CH=Mouse Zone
  34. 280 If CH>0 and RV<>CH Then Goto 390
  35. 300 Goto 220
  36. 320 Ink 14 : Box XYZ((POS-1)*4),XYZ(((POS-1)*4)+1) To XYZ(((POS-1)*4)+2),XYZ(((POS-1)*4)+3)
  37. 330 POS=POS+1
  38. 340 If POS>6 Then POS=1 : Goto 360
  39. 350 X=X+102
  40. 360 Ink 13 : Box XYZ((POS-1)*4),XYZ(((POS-1)*4)+1) To XYZ(((POS-1)*4)+2),XYZ(((POS-1)*4)+3)
  41. 370 Return 
  42. 390 Rem
  43. 391 Rem
  44. 395 OPOS=POS : X2=X : Y2=Y : RV=CH
  45. 400 If CH=1 Then POS=CH : X=2 : Y=111
  46. 410 If CH=2 Then POS=CH : X=104 : Y=111
  47. 420 If CH=3 Then POS=CH : X=206 : Y=111
  48. 430 If CH=4 Then POS=CH : X=2 : Y=186
  49. 440 If CH=5 Then POS=CH : X=104 : Y=186
  50. 450 If CH=6 Then POS=CH : X=206 : Y=186
  51. 455 If X=X2 and Y=Y2 Then Goto 460
  52. 457 Ink 14 : Box XYZ((OPOS-1)*4),XYZ(((OPOS-1)*4)+1) To XYZ(((OPOS-1)*4)+2),XYZ(((OPOS-1)*4)+3)
  53. 460 Gosub 360 : Goto 220
  54. 480 Restore 590 : For A=1 To 6 : Read F$(A) : Next 
  55. 490
  56. Flash Off : Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0 : Amal Off : Bob Off : Wait 20
  57. Key Speed 10,2
  58. 500 Sprite Off 
  59. 520 On Error Goto 531
  60.  Z=POS : Erase 1
  61. Sprite Off : Wait Vbl : If Exist(F$(Z)) Then Run F$(Z)
  62. For DRV=0 To 3
  63.    If Exist("df"+Str$(DRV)+":"+F$(Z)) Then Dir$="df"+Str$(DRV)+":" : Run F$(Z)
  64. Next DRV
  65. A=A/0
  66. Rem - Wow, an error has occurred - 
  67. 531 Fade 1 : Wait 7 : Cls 0 : Palette $0,$FFF : Pen 1 : Paper 0 : Locate 0,10 : Centre "Insert the other disc" : Locate 0,11 : Centre "then press any key."
  68. Clear Key : Wait Key : Locate 0,10 : Centre Space$(80)
  69. Resume 490
  70. 540 Resume 490
  71. 560 Data 16,199-155,98,199-105
  72. 570 Data 120,199-155,202,199-105
  73. 571 Data 224,199-155,306,199-105
  74. 572 Data 16,199-81,98,199-31
  75. 573 Data 120,199-81,202,199-31
  76. 574 Data 224,199-81,306,199-31
  77. 590 Data "Addition.AMOS"
  78. 600 Data "Teddy Paint.AMOS"
  79. 610 Data "Fun train.AMOS"
  80. 620 Data "House&Garden.AMOS"
  81. 630 Data "Teddy Karaoke.AMOS"
  82. 640 Data "Teddy Books.AMOS"